home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
91xx
/
9107a.d64
/
tiere raten
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
2KB
|
73 lines
10 PRINT"[147]":REM TIERE RATEN
20 PRINT:PRINT" TIERE RATEN"
30 PRINT" ***********"
40 PRINT:PRINT:PRINT" ES SIND TIERE MIT 5 BUCHSTABEN"
50 PRINT:PRINT" ZU ERRATEN!"
60 PRINT:PRINT:PRINT" ICH SAGE DIR, WIEVIELE BUCHSTABEN"
70 PRINT:PRINT" STIMMEN UND WIEVIELE AN RICHTIGER"
80 PRINT:PRINT" STELLE STEHEN!"
90 PRINT:PRINT:PRINT" DIE BUCHSTABEN WERDEN OHNE"
100 PRINT:PRINT" RETURN-TASTE EINGEGEBEN!"
110 DIMB$(250)
115 DATAA,P,A,O,R,K,R,S,K,K,F,L,G,L,W,R,I,A,M,B,K,B,L,H,B
120 DATAW,T,E,G,P,E,W,S,M,O,D,S,Z,N,H,P,S,S,P,D,T,K,R,Z,B
125 DATAD,F,S,T,A,R,A,T,A,R,U,A,E,O,A,A,L,M,E,U,A,A,U,E,I
130 DATAE,I,N,E,A,C,A,C,I,C,A,T,E,A,E,I,P,P,U,O,A,A,O,I,I
135 DATAL,E,S,T,U,A,L,U,T,E,C,C,M,E,N,T,T,S,I,L,T,C,C,C,E
140 DATAS,G,T,I,N,H,R,H,L,H,C,I,B,N,N,R,A,I,D,H,P,M,B,E,S
145 DATAE,R,E,E,P,K,L,T,Z,B,H,H,S,W,Z,T,I,E,S,L,E,H,H,H,N
150 DATAP,E,E,E,D,S,A,A,A,S,H,E,R,D,N,O,T,T,E,L,I,E,B,G,O
155 DATAR,D,L,R,E,E,E,E,E,S,S,S,E,E,E,E,S,L,E,E,R,E,S,T,E
160 DATAE,R,R,R,A,E,N,F,N,E,S,R,A,U,E,L,Z,Z,L,E,R,L,E,E,N
170 FORI=1TO250:READB$(I):NEXTI
180 PRINTTAB(30);:INPUTF1
200 PRINT"[147] WIR SPIELEN MIT:"
210 FORJ=1TO50
220 FORI=JTO250STEP50
230 PRINTB$(I);
240 NEXTI
250 PRINT" ";
260 NEXTJ
400 Z=INT(RND(1)*50)+1
410 K=0
420 FORJ=ZTO250STEP50
430 K=K+1:R$(K)=B$(J)
440 NEXTJ
450 PRINT
460 FORI=1TO5:IFF1=7THENPRINTR$(I);:NEXTI
462 FORI=1TO100:NEXTI:PRINT"[157]";
464 FORI=1TO5:IFF1=7THENPRINT" [146][157][157]";:NEXTI
470 PRINT
480 PRINT" VORSCHLAG:";
490 REM EINGABE UND RICHTIGE STELLEN PRUEFEN
500 FORI=1TO5
510 GETT$(I):IFT$(I)=""THEN510
520 PRINTTAB(12);T$(I);
530 IFT$(I)=R$(I)THENS=S+1
540 NEXTI
550 REM PRUEFEN, OB ES DAS TIER GIBT
560 FORU=1TO50
570 I=1:X=0
580 FORB=UTO250STEP50
590 IFT$(I)=B$(B)THENX=X+1
600 I=I+1
610 NEXTB
620 IFX=5THEN670
630 NEXTU
640 PRINT" SPIELT NICHT MIT!"
650 S=0:T=0:FL=1:GOTO480
660 REM TREFFER ZAEHLEN
670 FORI=1TO5
680 FORJ=1TO5
690 IFT$(I)=R$(J)THENT=T+1:T$(I)="*":R$(J)="+"
700 NEXTJ
710 NEXTI
720 REM AUSWERTUNG
730 IFS=5THEN780
740 PRINTTAB(19)T;"TREFFER"
750 PRINTTAB(19)S;"AN R. STELLE"
760 V=V+1
770 T=0:S=0:FL=1:GOTO410
780 PRINT:PRINTTAB(25)"DAS IST ES!"
790 PRINTTAB(24)V+1;"VERSUCHE"